!file name=geomf.h
!geometry
      integer fnode
      integer,pointer,dimension(:) :: compf,pn,fn
      real(NBF),pointer,dimension(:) :: hzf,rhzf
!xsec
      real(NBF),pointer,dimension(:,:) :: xstf,xsrf,xsff,xchif,rxstf,rxsrf
      real(NBF),pointer,dimension(:,:,:) :: xsdf,betaf
      type(scatter),pointer,dimension(:,:) :: xsmf
!nem
      real(NBF),pointer,dimension(:,:) :: nemsrc,fscf,sscf		
      real(NBF),pointer,dimension(:,:,:) :: aflx,pphi,jnetf,qsf,sigdf,rsigdf,sflx
!
      common/ga/fnode
      common/gb/compf,pn,fn
      common/gc/hzf,rhzf
      common/gd/xstf,xsrf,xsff,xchif,rxstf,rxsrf
      common/ge/xsdf,betaf
      common/gf/xsmf
      common/gg/nemsrc,fscf,sscf
      common/gh/aflx,pphi,qsf,jnetf,sigdf,rsigdf,sflx

